home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / Rock_1_5.lha / ROCK / waitrock.rexx < prev   
OS/2 REXX Batch file  |  1995-04-22  |  166b  |  14 lines
  1. /* Wait until rock exits */
  2.  
  3. Parse upper arg delay .
  4.  
  5. if ~datatype(delay,'w') then delay=3
  6.  
  7. delay=delay*50
  8.  
  9. do while show('P','ROCK')
  10.   call delay(delay)
  11. end
  12.  
  13. exit 0
  14.